home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / dirtool / readdir.hex < prev    next >
Encoding:
Text File  |  1980-01-04  |  2.3 KB  |  62 lines
  1.   file$="ReadDir" : 'v2.11
  2.   OPEN file$ FOR OUTPUT AS #1
  3.   lin=0 : a$=""
  4. Loop:
  5.   lin=lin+1
  6.   READ x$ : IF x$="**" THEN Endeth
  7. Beyond:
  8.   i=INSTR(x$," ")
  9.   IF i>0 THEN
  10.     x$=LEFT$(x$,i-1)+MID$(x$,i+1)
  11.     GOTO Beyond
  12.   END IF
  13.   x$=UCASE$(x$)
  14.   cs$=RIGHT$(x$,2) : x$=LEFT$(x$,LEN(x$)-2)
  15.   sum=0
  16.   FOR i=1 TO LEN(x$)
  17.     sum=sum+(ASC(MID$(x$,i,1)) XOR i)
  18.   NEXT i
  19.   IF (sum AND 255)<>VAL("&H"+cs$) THEN
  20.     PRINT "Checksum error in line";lin
  21.     GOTO Endeth
  22.   END IF
  23.   x$=a$+x$ : a$=""
  24.   FOR i=1 TO LEN(x$) STEP 2
  25.     IF MID$(x$,i,1) = "G" THEN
  26.       IF MID$(x$,i+2)="" THEN a$=MID$(x$,i) : GOTO Loop
  27.       y$=STRING$(ASC(MID$(x$,i+1,1))-63,VAL("&H"+MID$(x$,i+2,2)))
  28.       i=i+2
  29.     ELSE
  30.       y$=CHR$(VAL("&H"+MID$(x$,i,2)))
  31.     END IF
  32.     PRINT #1,y$;
  33.   NEXT i
  34.   GOTO Loop
  35.  
  36. Endeth:
  37.   CLOSE #1
  38.   PRINT "Operation complete"
  39.   END
  40.  
  41. 1     DATA ga0003 f3gf00 01gj00 84ga00 03e9gb 008442 3008ff 244843 fa01f9 d1
  42. 2     DATA 70002c 780004 4eaefd d82840 4a8067 1e203c ga0001 007201 2c7800 2a
  43. 3     DATA 044eae ff3a2a 404a80 670841 fa01ce 2a0861 26200d 671022 40203c d6
  44. 4     DATA ga0001 002c78 00044e aeff2e 200c67 0a2240 2c7800 044eae fe6270 5c
  45. 5     DATA 004e75 7c0078 ff203c ga0001 047201 2c7800 044eae ff3a2e 0067ga a1
  46. 6     DATA 00aa22 0a74fe 2c4c4e aeffac 2c0067 ga009a 220624 072c4c 4eaeff 29
  47. 7     DATA 9a4a80 67ga00 8a2647 4aab00 046b66 22062c 4c4eae ff8228 007000 af
  48. 8     DATA 720008 c1000c 2c7800 044eae fece08 ga000c 670a41 fa011f 61ga00 ef
  49. 9     DATA a66070 220624 072c4c 4eaeff 944a80 674826 474aab 00046b 2647eb ff
  50. 10    DATA 000822 0b2005 41fa00 bc61ga 007e48 e70fe0 558524 4b6100 ff644c 02
  51. 11    DATA df07f0 4a8066 3660a4 41eb00 082208 242b00 7c2005 41fa00 9e6154 b6
  52. 12    DATA 200452 80668c 601a2c 4c4eae ff7c0c 80gb00 e86606 611070 004e75 a3
  53. 13    DATA 41fa00 986132 610470 ff4e75 220452 846706 2c4c4e aeff82 4a8767 9d
  54. 14    DATA 102247 203cga 000104 2c7800 044eae ff2e22 066706 2c4c4e aeffa6 4d
  55. 15    DATA 4e7548 e7fff0 224f45 fa002e 264d2c 780004 4eaefd f62c4c 4eaeff bb
  56. 16    DATA c42200 671224 0b4a1b 66fc53 4b260b 96822c 4c4eae ffd04c df0fff 94
  57. 17    DATA 4e7516 c04e75 9b316d 257325 739b30 6d0a00 257325 2d3334 2e3334 46
  58. 18    DATA 73ga20 282536 2e366c 642074 617675 61290a 00gb2a 20646f 732d76 c3
  59. 19    DATA 697268 652025 6c640a 00gb2a 206272 65616b 0a00gs 200064 6f732e 6e
  60. 20    DATA 6c6962 726172 79ga00 4e71ga 0003f2 9a
  61.       DATA **
  62.